﻿Imports System.Data
Imports System.Data.SqlClient
Imports BE = Entidades
Imports DAO = LogicDAO

Public Class ClienteBL
    Dim objCliDAO As New DAO.ClienteDAO

    Public Function ListarClientes() As DataSet
        Return objCliDAO.ListarClientes()
    End Function

    Public Function ActualizarEstadoCliente(ByVal objCliBE As BE.Cliente) As String
        Return objCliDAO.ActualizarEstadoCliente(objCliBE)
    End Function

    Public Function Registrar(ByVal objCliBE As BE.Cliente) As String
        Return objCliDAO.RegistrarCliente(objCliBE)

    End Function

    Public Function Actualizar(ByVal objCliBE As BE.Cliente) As String
        Return objCliDAO.Actualizar(objCliBE)
    End Function

    Public Function getClientes() As DataTable
        Dim cli As New BE.Cliente
        Dim clientes As New DAO.ClienteDAO
        Return clientes.getCliente(cli.Email, cli.Password)
    End Function



End Class
